home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / oneline.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  179 b   |  2 lines
  1. 1  SCREEN 1,0:KEY OFF:CLS:RANDOMIZE:CLS:Z=37:WHILE Z:C=INT(RND*4):FOR I=1 TO 6:SOUND 200+RND*1000,9:LINE-(RND*319,RND*199),C:SOUND Z,0:NEXT:Q=(Q+5+Z*RND) MOD Z:SOUND Z+Q,200:PAINT (RND*319,RND*199),INT(RND*4),C:SOUND Z,0:J=J+RND/Z:COLOR ,J MOD 2:WEND:END
  2.